Szövegfájlból (szoveg.txt) indexfájl (index.txt) létrehozása kicsit bonyolultabban, mint Java-ban, mivel itt figyelembe vesszük az írásjeleket és azok nem kerülnek be az indexfájlba (Indexelo.pas)
program Indexelo;
uses crt;
var i,i1,i2j,r,n:integer;
f,g:text;
s,s1:string;
sorok:array [1..50] of string;
szavak:array [1..100] of string;
procedure cserelgetes (i,j:integer);
var x:string;
begin
x:=szavak[i];
szavak[i]:=szavak[j];
szavak[j]:=x;
end;
procedure rendezes;
Elrendezzük a szavak tömb elemeit.
{a szavak n elemu tomb elrendezese}
var i,j:integer;
begin
for i:=1 to r-1 do
for j:=i+1 to r do
if (szavak[j]<szavak[i]) then cserelgetes(j,i);
end;
function postit(s:string):integer;
var i,p:integer;
begin
p:=0;
for i:=1 to length(s) do
Végigmegy a string karakterein, megvizsgálja azokat és amennyiben talál egy írásjelet, akkor visszaadja annak a pozícióját.
case s[i] of
'a'..'z','A'..'Z':continue;
#128..#255:continue;
else begin
p:=i;
break;
end;
end;
postit:=p;
end;
BEGIN
clrscr;
assign(f,'szoveg.txt');reset(f);
assign(g,'index.txt');rewrite(g);
i:=0;
while (not eof(f)) do begin
Eltároljuk a sorok tömbbe a szoveg.txt sorait.
if (i=51) then break;
A fent létrehozott tömb 50 elemű, ezért megszakítjuk a ciklust, ha tulcsordulás történik.
readln(f,s);
inc(i);
sorok[i]:=s;
end;
close(f);
writeln('a szoveg.txt fajl ',i,' sorbol all');
r:=i; {sorok szama}
Az r változóba beletesszük a sorok számát.
j:=0;
for i:=1 to r do begin
A sorok tömb elemeit szavakra bontjuk a korábban bemutatott program elvének használatával.
s:=sorok[i]+' xxx';
i2:=postit(s);
while (i2>0) do begin
if ((i2>1) and (j<1000)) then begin
inc(j);
str(i,s1);
Az i értékét string-gé konvertáljuk.
szavak[j]:=copy(s,1,i2-1)+' '+s1;
end;
s:=copy(s,i2+1,255);
i2:=postit(s);
end;
end;
writeln('az index.txt fajl ',j,' szobol all');
r:=j;
rendezes;
Elrendezzük a szavak tömb elemeit, az ezt követő ciklussal beleírjuk az elrendezett tömb elemeit az index.txt fájlba.
for i:=1 to r do writeln(g,szavak[i]);
close(g);
readkey;
END.
